(dired-compress-file): Test the return value of dired-check-process properly.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 3cff0fc3ea7655608e0b067ffc5a1e17cedc2451..f8503f2d07f9197311623853345592056c5c26d3 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -487,12 +487,12 @@ and use this command with a prefix argument (the value does not matter)."
          ((file-symlink-p file)
           nil)
          ((string-match "\\.Z$" file)
-          (if (dired-check-process (concat "Uncompressing " file)
-                                   "uncompress" file)
+          (if (not (dired-check-process (concat "Uncompressing " file)
+                                        "uncompress" file))
               (substring file 0 -2)))
          (t
-          (if (dired-check-process (concat "Compressing " file)
-                                   "compress" "-f" file)
+          (if (not (dired-check-process (concat "Compressing " file)
+                                        "compress" "-f" file))
               (concat name ".Z"))))))
 \f
 (defun dired-mark-confirm (op-symbol arg)